home *** CD-ROM | disk | FTP | other *** search
/ After Midnight Carnal Escapes / After Midnight Carnal Escapes.iso / mac / INSTALL.DAT < prev    next >
Text File  |  1994-04-03  |  10KB  |  302 lines
  1. /*
  2.  INSTALL.DAT
  3.  
  4.  Project: After Midnight
  5.  Version: 1.0
  6.  
  7. */
  8.  
  9. /*  The @DefineProject block starts the installation script by telling
  10.     Install what version, product, and other basic information that
  11.     Install will need to process the installation.  The text that
  12.     @Name is set to is the same information that can be found on the
  13.     first line of the DISK.ID file.  Likewise the text that @Version
  14.     is set to, is the same information that can be found on the second
  15.     line of the DISK.ID file.  This information remains constant
  16.     throughout the entire distribution set.  @Subdir and @OutDrive are
  17.     used to define the default drive and directory for the target system
  18.     during the installation process.  @InDiskBell set to @True will cause
  19.     INSTALL    to beep when it prompts the user for additional disks during
  20.     the installation.  
  21. */
  22.     
  23. @DefineProject
  24.     @Name = "After Midnight"
  25.     @Version = "1.0"
  26.     @Subdir = "\\QTW"
  27.     @OutDrive = C
  28.     
  29. @EndProject
  30.  
  31. /*  The following @DefineVars block is used to assign variables to
  32.     specific types (Integer, QString, Drive, & Dir) as well as establishing
  33.     default values for the variables.  Variables may be used throughout
  34.     the wINSTALL script file, and can be assigned to any legal value for
  35.     its type, at just about any time during the script file.  Later in
  36.     this script file these variables are assigned values depending whether
  37.     particular files will be installed or not.
  38. */
  39.  
  40. @DefineVars
  41.     @Integer @amid       = 600
  42.     @Integer @qtw       = 1500
  43.     @Integer @TSIZE      = @Eval(@amid+@qtw)
  44.     @Integer @Red        = @RGB(255,0,0)             //DEFINE COLOR RED
  45.     @Integer @Green      = @RGB(0,255,0)             //DEFINE COLOR GREEN
  46.     @Integer @Blue       = @RGB(0,0,255)             //DEFINE COLOR BLUE
  47.     @Integer @Black      = @RGB(0,0,0)               //DEFINE COLOR BLACK
  48.     @Qstring @FileName  = "@StartupDrive:@StartupDir\\horny\\dejavu38.mov"
  49.     @Qstring @Directory  = "@StartupDrive:@StartupDir\\horny"
  50.  
  51. @EndVars
  52.  
  53. @BackgroundMode(3,@Blue,@Black)
  54.  
  55. /* 
  56.     The following section displays the welcoming message during installation.
  57.     @MoveCStr is essentially the same as the @MoveStr command, except that
  58.     it allows you to change the background and foreground colors at the
  59.     specified location. (Note MoveCStr() is only valid under DOS installations.)
  60. */
  61.  
  62.  
  63. @Display
  64.                 Welcome!!
  65.  
  66. Congratulations on your purchase of  @Name!
  67.  
  68.  
  69. @Pause
  70. @Enddisplay
  71.  
  72. @SetOption(1001)  
  73. @SetOption(1002)
  74.  
  75. LOOP:
  76. @BackgroundMode(3,@Blue,@Black) //set background to blue/black
  77.  
  78.  
  79. @DlgCtrlSize(0,7,5,14,50)  // set coordinates & size of list box
  80. @GetOption @Checkbox @Prompt = "Select files to install"
  81.  @Name by default will install the program files to the Windows directory,
  82.  and Quicktime for Windows to a selected target directory.
  83. The total installation takes approximately 2.1 Mb of disk space.
  84.  
  85. @Option 1001 = "After Midnight"
  86. @Option 1002 = "Quicktime for Windows        "
  87.  
  88. @EndOption
  89.  
  90.  
  91.  
  92. @if(1002 [= @option)
  93. NEWDRIVE:  // Goto label for reselecting drive
  94. /*
  95.     wINSTALL will now prompt the end-user for the
  96.     drive they wish After Midnight to be installed onto.
  97. */
  98. @BackgroundMode(3,@Blue,@Black)
  99.  
  100.  
  101. @DlgCtrlSize(0,8,15,15,27)
  102. @GetOutDrive @OutDrive @Prompt = "Enter target drive"
  103. @Suppress(0,17) // Suppress floppies & CD-ROM drives
  104. Please select the drive where you wish QuickTime for Windows 
  105. to be installed on your machine.  Any drive
  106. available can be used assuming you have
  107. access rights to the drive you select, and
  108. there is enough space available for installation.
  109. @EndOutDrive
  110.  
  111.  
  112.  
  113. /*
  114.     wINSTALL will now prompt the end-user for the
  115.     main directory they wish Quicktime to be installed
  116.     onto.
  117. */
  118.  
  119. NEWDIR:
  120. @BackgroundMode(3,@Blue,@Black)
  121.  
  122.  
  123. @DlgCtrlSize(0,7,0,8,35)
  124. @GetSubdir @Subdir @Prompt = "Enter target directory"
  125. Please select the directory
  126. you wish Quicktime to be installed under.
  127.  
  128. @EndSubdir
  129.  
  130. @EndIf
  131.  
  132. /*  The following section demonstrates three constructs in wINSTALL.  The
  133.     @If block, the @GoTo command, and the 'Membership' concept.  @If blocks
  134.     can be used virtually anywhere in wINSTALL and can control many actions
  135.     taken during the installation process.  @Goto commands can be used to
  136.     alter the general flow of execution in the script file.  This can be
  137.     handy in making script files that are flexible.  The 'Membership' concept
  138.     is used for determination of GROUPS and OPTIONS that may or may not have
  139.     been chosen during the installation.  Below for example, the condition
  140.     inside the @If block, checks to see whether '100 is a member' of the
  141.     @Option variable.  When a particular OPTION or GROUP is selected, a
  142.     flag is set in the @Option or @Group variable for that specific
  143.     OPTION number or GROUP letter.  In this way, you can test to see
  144.     whether specific OPTIONS or GROUPS have been set.  
  145. */
  146.  
  147.  
  148. @if(1001 [! @option) @amid=0 @Else @amid = 600 @EndIf //if group not selected zero out
  149. @if(1002 [! @option) @qtw=0 @Else @qtw = 1500  @EndIf //if group not selected zero out
  150.  
  151.  
  152. @TSIZE = @Eval((@amid+@qtw))   // add selected options' size requirements
  153.  
  154. // if total size > free space, then display
  155. // blue background and set default to loop back and select again.
  156. @If(@TSIZE*1024 > @DiskFree(@OutDrive))
  157.     @BackgroundMode(3,@Blue,@Black)
  158.     @Display
  159.         The drive you have selected does not have
  160.         enough free space available.
  161.         
  162.     @Pause
  163.     @EndDisplay
  164.     @GOTO NEWDRIVE
  165. @EndIf    
  166.  
  167. @BackgroundMode(3,@Blue,@Black)
  168. @SetOption(1600) @ClearOption(1700)
  169.  
  170.  
  171. @DlgCtrlSize(0,13,12,17,40)
  172. @GetOption @Prompt = "Selected files summary"
  173. You have selected to install the following options.
  174.                @if(1001 [= @option) After Midnight         @amid K @Else After Midnight         WILL NOT BE INSTALLED @EndIf
  175.                @if(1002 [= @option) Quicktime for Windows   @qtw K @Else Quicktime for Windows  WILL NOT BE INSTALLED @EndIf
  176.           
  177.                              The selected files will require a total of: @TSIZE K bytes.
  178.                The drive currently selected for installation has: @Eval(@DiskFree(@OutDrive)/1K) K free.
  179.  
  180.  
  181.  You may:
  182. @Option 1600 = "CONTINUE"
  183. @Option 1700 = "RESELECT OPTIONS"
  184. @EndOption
  185.  
  186.  
  187. @If(1700 [= @Option) @GOTO Loop @EndIf
  188.  
  189. @If(1001 [= @Option)
  190.     @SetINI("Screen Saver.After Midnight", "MovieFileName", "@FileName" ,"control.ini")
  191.     @SetINI("Screen Saver.After Midnight", "Directory", "@Directory" ,"control.ini")
  192.     @SetINI("Screen Saver.After Midnight", "Option", "1" ,"control.ini")
  193.  
  194. @EndIf
  195. /*
  196.       The @DefineDisk blocks actually do the copying of the files, from the 
  197.       floppy disk to the hard disk of the end-users particular choice.
  198. */
  199.  
  200. @DefineDisk
  201.     @Label = "After Midnight"
  202.  
  203. /*
  204.     The following files are not in a library and are always installed.
  205. */
  206. /*        @File  README.txt   @OUT *.*            */
  207.  
  208.     @If(1001 [= @Option)    // if winstall source selected, install
  209.         
  210.         @File qtw\AfterMid.exe     @OUT @WindowsDrive:@WindowsDir\*.* @ASKOVERWRITE
  211.         @File qtw\AfterMid.scr     @OUT @WindowsDrive:@WindowsDir\*.* @ASKOVERWRITE
  212.         @File qtw\VBRUN300.DLL     @OUT @WindowsDrive:@WindowsDir\*.* @ASKOVERWRITE
  213.         @File qtw\THREED.VBX     @OUT @WindowsDrive:@WindowsDir\*.* @ASKOVERWRITE
  214.         
  215.  
  216.     @EndIf // Option 1001
  217.  
  218.     @If(1002 [= @Option)   // if install source selected, install
  219.  
  220.         @File qtw\qtmovie.vbx    @OUT @WindowsDrive:@WindowsDir\*.* @ASKOVERWRITE
  221.         @File qtw\qtpic.vbx    @OUT @WindowsDrive:@WindowsDir\*.* @ASKOVERWRITE
  222.         @File qtw\mciqtenu.dll    @out BIN\*.* @OVERWRITE
  223.         @File qtw\playenu.dll     @OUT BIN\*.* @OVERWRITE
  224.         @File qtw\qthndlr.dll    @OUT BIN\*.* @OVERWRITE
  225.         @File qtw\qtim.dll    @OUT BIN\*.* @OVERWRITE
  226.         @File qtw\qtimcmgr.dll    @OUT BIN\*.* @OVERWRITE
  227.         @File qtw\qtole.dll    @OUT BIN\*.* @OVERWRITE
  228.         @File qtw\qtvhdw.dll    @OUT BIN\*.* @OVERWRITE
  229.         @File qtw\viewenu.dll    @OUT BIN\*.* @OVERWRITE
  230.         @File qtw\mciqtw.drv    @OUT BIN\*.* @OVERWRITE
  231.         @File qtw\player.exe    @OUT BIN\*.* @OVERWRITE
  232.         @File qtw\qtnotify.exe    @OUT BIN\*.* @OVERWRITE
  233.         @File qtw\viewer.exe    @OUT BIN\*.* @OVERWRITE
  234.         @File qtw\navg.qtc    @OUT BIN\*.* @OVERWRITE
  235.         @File qtw\qcmc.qtc    @OUT BIN\*.* @OVERWRITE
  236.         @File qtw\qtcvid.qtc    @OUT BIN\*.* @OVERWRITE
  237.         @File qtw\qtjpeg.qtc    @OUT BIN\*.* @OVERWRITE
  238.         @File qtw\qtmsvc.qtc    @OUT BIN\*.* @OVERWRITE
  239.         @File qtw\qtraw.qtc    @OUT BIN\*.* @OVERWRITE
  240.         @File qtw\qtrle.qtc    @OUT BIN\*.* @OVERWRITE
  241.         @File qtw\qtrpza.qtc    @OUT BIN\*.* @OVERWRITE
  242.         @File qtw\qtrt21.qtc    @OUT BIN\*.* @OVERWRITE
  243.         @File qtw\qtsmc.qtc    @OUT BIN\*.* @OVERWRITE
  244.         @File qtw\qtyvu9.qtc    @OUT BIN\*.* @OVERWRITE
  245.  
  246.     
  247.     @EndIf    // Option 1002
  248. @EndDisk
  249.  
  250.  
  251. /*
  252.  *    The following lines will be placed into any pre-existing AUTOEXEC.BAT
  253.  *    file on the boot disk in the boot drive.  If no AUTOEXEC.BAT file 
  254.  *    already exists, then one will be created.
  255.  *
  256.  *    Each of the two AUTOEXEC.BAT related commands, @Path and @Verbatim,
  257.  *    is aware of the structure of an AUTOEXEC.BAT file.
  258.  *
  259.  *    The @Path command examines each node of any existing PATH= commands
  260.  *    (or its synonym SET PATH=) and places each of the nodes specified
  261.  *    in the @Path command of the INSTALL.DAT file only if the node
  262.  *    does not already exist on the PATH= search list of the AUTOEXEC.BAT
  263.  *    file.
  264.  *
  265.  *    The @Verbatim command instructs INSTALL to place the quoted string
  266.  *    into the AUTOEXEC.BAT file, if the string is not already there.
  267.  */
  268. @if(1002 [! @option) @qtw=0 @Else @qtw = 1500  
  269.  
  270.     @SetAutoexec
  271.         @ASKOverwrite
  272.         @Path = "@OutDrive:@Subdir\\BIN"
  273.         
  274.     @EndAutoexec
  275. @EndIf //if group not selected zero out
  276.  
  277. @Finish
  278. @If(@BackgroundMode(3,@Blue,@Black))@EndIf
  279. @Cls
  280. /*
  281.     The following command is used to create the wINSTALL group and
  282.     add the wINSTALL item to the Windows Program Manager.
  283. */
  284.  
  285. @ProgramManager("[CreateGroup(Starware)][AddItem(@WindowsDrive:\\@WindowsDir\\Aftermid.exe, @Name)][AddItem(@StartupDrive:\\@StartupDir\\QTW\\Readme.txt, ReadMe)][AddItem(@StartupDrive:\\@StartupDir\\QTW\\Starplay.exe, Starplay)][ShowGroup(Starware, 2)]")
  286.  
  287.  
  288. @Cls
  289.  
  290. @Name is finished installing.  Thank you for your purchase.
  291. If you have any technical or sales questions, please feel free to
  292. contact us at (305)426-4552
  293.  
  294. @Pause
  295. @If(@BackgroundMode(3,@Blue,@Black))@EndIf
  296.  
  297. @ChDrive (@OutDrive)
  298. @ChDir ("@SubDir")
  299. @EndFinish
  300.  
  301. // end-of-file
  302.